Nobel laureates are often thought of as bona fide greater-than-life scientific celebrities. Last year Kaggle, a platform for predictive modelling and analytics competitions, has compiled the Nobel Laureates Dataset which details 18 variables on 969 laureates. While many have probed the dataset statistically, only few dared to shape it into interactive tools.

laureates <- readRDS("D:/RStudio/09-DevelopingDataProducts/Coursera/laureates.RDS")
dim(laureates)

## [1] 969  18

colnames(laureates)

##  [1] "Year"                 "Category"             "Prize"               
##  [4] "Motivation"           "Prize.Share"          "Laureate.ID"         
##  [7] "Laureate.Type"        "Full.Name"            "Birth.Date"          
## [10] "Birth.City"           "Birth.Country"        "Sex"                 
## [13] "Organization.Name"    "Organization.City"    "Organization.Country"
## [16] "Death.Date"           "Death.City"           "Death.Country"

However, most of the dataset remained unused. Therefore, we asked with Plotly…

We integrated Leaflet and Shiny to produce an interactive app that draws the laureates by their places of birth and death, and filters them by the year in which they were awarded, their age at the time, and the category for which they were awarded. Each marker contains additional information about the laureate and includes the Wikipedia link.

Why not take a look?